10 MODE
100 CLW
1000 VARNAME
1001 INK
1002 ON
1004 VARNAME
1006 VARNAME
1008 VARNAME
1010 VARNAME
1012 GOSUB
1013 IF
1014 INK
1016 GOTO
1018 INK
1020 ON
1022 VARNAME
1024 VARNAME
1026 VARNAME
1028 VARNAME
1030 GOSUB
1031 IF
1032 INK
1034 GOTO
1036 INK
1038 VARNAME
1040 VARNAME
1042 IF
1043 GOSUB
1044 IF
1046 INK
1048 RETURN
110 VARNAME
120 VARNAME
130 GOSUB
139 VARNAME
140 VARNAME
141 LOCATE
145 VARNAME
15 PALETTE
150 GOSUB
152 IF
153 IF
155 IF
156 IF
1999 IF
20 VARNAME
2000 IF
2001 IF
2002 IF
2003 RETURN
30 DIM
3000 ON
3001 VARNAME
3002 VARNAME
3003 VARNAME
3004 VARNAME
3010 RETURN
40 FOR
50 FOR
60 FOR
70 VARNAME
80 IF
90 VARNAME
998 GOTO
999 GOTO